Chip 2005 May/CMCD0505.ISO/Software/Demo/DesktopX/objects/killer_news.dxpack/{E9A66F47-50C7-4135-9D1F-CF146B81BFE7}.DXScript2

Extensible Markup Language | 2004-04-15 | 5KB | 143 lines

<?xml version="1.0"?>
<!--DXScript Data File.  Version 2.0-->
<DXScript>
    <Script><![CDATA[Dim zone
zone=Array("World","Africa","Americas","Asia-Pacific","Europe","Middle East","South Asia")
Dim zoneURL(6)
zoneURL(0)="http://news.bbc.co.uk/rss/newsonline_uk_edition/world/rss091.xml"
zoneURL(1)="http://news.bbc.co.uk/rss/newsonline_uk_edition/world/africa/rss091.xml"
zoneURL(2)="http://news.bbc.co.uk/rss/newsonline_uk_edition/world/americas/rss091.xml"
zoneURL(3)="http://news.bbc.co.uk/rss/newsonline_uk_edition/world/asia-pacific/rss091.xml"
zoneURL(4)="http://news.bbc.co.uk/rss/newsonline_uk_edition/world/europe/rss091.xml"
zoneURL(5)="http://news.bbc.co.uk/rss/newsonline_uk_edition/world/middle_east/rss091.xml"
zoneURL(6)="http://news.bbc.co.uk/rss/newsonline_uk_edition/world/south_asia/rss091.xml"
Dim zonetext(6)        'the complete xml feed for each zone
Dim updatetime(6)
Dim initialized        'whether or not the object has just been loaded
Dim prefetchzone    'zone last read from news server
Dim displayzone        'which zone is currently displayed
Dim itemlink(7)        'stored urls for the currently displayed zone's news items
Dim browsername
Dim statustext

Sub Object_OnScriptEnter
    statustext="retrieving news..."
    If IsEmpty(Object.PersistStorage("browser")) Or Object.PersistStorage("browser")="" Then
        browsername="iexplore.exe "
    Else
        browsername=Object.PersistStorage("browser")&" "
    End If
    initialized=False
    prefetchzone=6
    Object.SetTimer 568,200000'get news from rss feed every 3 minutes 20 seconds, hehe
    Object_OnTimer568
    Object.SetTimer 570,60000'change displayed news every minute
End Sub

Sub pickbrowser(b)
    browsername=b
    Object.PersistStorage("browser")=b
End Sub


Sub Object_OnTimer568
    If prefetchzone<6 Then
        prefetchzone=prefetchzone+1
    Else prefetchzone=0
    End If
    getnews(prefetchzone)
End Sub

Sub Object_OnTimer570
    dz=CInt(displayzone)
    If dz<6 Then
        dz=dz+1
    Else dz=0
    End If
    selectchannel(CStr(dz))
End Sub

Sub getnews(z)
    DesktopX.Object("k_news_status").Text="retrieving news..."
    If System.InternetConnected Then
        Set http = CreateObject("Microsoft.XmlHttp")
        http.Open "GET",zoneURL(z), False
        http.send ""
        txt = http.responseText
        zonetext(z) = Replace(txt, "'", "'")
    End If
    updatetime(z)=Now()
    If initialized=False Then
        displayzone=CStr(z)
        displayitems(zonetext(z))
        displayselected(CStr(z))
        initialized=True
    End If
    DesktopX.Object("k_news_status").Text=""
End Sub

Sub selectchannel(c)
    If zonetext(c)="" Then
        initialized=False
        getnews(c)
    Else
        displayzone=c
        displayitems(zonetext(c))
    End If
    displayselected(c)
End Sub

Sub displayselected(z)
    For x=0 To 6
        If CStr(x)=z Then
            DesktopX.Object("k_channel"&x).TextColor=RGB(83,87,119)
            DesktopX.Object("k_bbc_mapselect").State=x
            DesktopX.Object("k_bbc_maplineselect").State=x
            DesktopX.Object("k_bbc_mapover").State="Default"
        Else
            DesktopX.Object("k_channel"&x).TextColor=RGB(128,128,128)
        End If
    Next
End Sub


Sub launchitem(n)
    On Error Resume Next
    Set WshShell = CreateObject("WScript.Shell")
    WshShell.Run browsername & itemlink(n)
End Sub

Sub displayitems(txt)
    marker=1'initialise marker
    For x=1 To 7
        marker=InStr(txt,"</item>")
        If marker<>0 Then
            itemtext=xmlstripper("item",txt)
            itemlink(x)=xmlstripper("link", itemtext)
            itemtitle=xmlstripper("title", itemtext)
            DesktopX.ScriptObject("k_newstext" & x).Object.Text = "- "&itemtitle&" -"
            txt=Right(txt,Len(txt)-marker-6)
        Else
            DesktopX.ScriptObject("k_newstext" & x).Object.Text = ""'hide items if no news exists
        End If
    Next
    Object.Sleep 50
    checkdimensions
End Sub

Sub checkdimensions
    w=0
    For x=1 To 7
        If DesktopX.ScriptObject("k_newstext" & x).Object.Width>w Then w=DesktopX.ScriptObject("k_newstext" & x).Object.Width
    Next
    DesktopX.Object("k_bbc_rbracket").Width=w+12
    d=DesktopX.ScriptObject("k_bbcworldnewsback").Object.Width-DesktopX.Object("k_bbc_rbracket").Right
    If d<16 Then DesktopX.ScriptObject("k_bbcworldnewsback").Object.Width=DesktopX.Object("k_bbc_rbracket").Right+16
End Sub

Function xmlstripper(param, string)
    datastart = InStr(string, param) + Len(param) + 1
    datalength = Instr(string, "/" & param) - datastart - 1
    xmlstripper = Mid(string, datastart, datalength)
End Function]]></Script><Globals><Editor><PropPane>0</PropPane><EditorLeft>14</EditorLeft><EditorTop>124</EditorTop><EditorRight>1251</EditorRight><EditorBottom>919</EditorBottom></Editor><Object><LanguageCLSID>{B54F3741-5B07-11CF-A4B0-00AA004A55E8}</LanguageCLSID><ControlCLSID>{00000000-0000-0000-0000-000000000000}</ControlCLSID><ControlObjWidth>64</ControlObjWidth><ControlObjHeight>64</ControlObjHeight><RunState>1</RunState><ScriptHostVersion>2</ScriptHostVersion></Object></Globals></DXScript>